home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / text_utl / t4txtlib / tutor2.fr_ / tutor2.fr (.txt)
Encoding:
Visual Basic Form  |  1995-11-02  |  3.0 KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3432
  5.    ClientLeft      =   3036
  6.    ClientTop       =   2892
  7.    ClientWidth     =   3012
  8.    Height          =   3852
  9.    Left            =   2988
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3432
  12.    ScaleWidth      =   3012
  13.    Top             =   2520
  14.    Width           =   3108
  15.    Begin T4TXLIB txlib1 
  16.       Caption         =   "txlib1"
  17.       Height          =   264
  18.       Left            =   120
  19.       Top             =   3120
  20.       Width           =   1332
  21.    End
  22.    Begin PictureBox Picture1 
  23.       Height          =   1812
  24.       Left            =   120
  25.       ScaleHeight     =   1788
  26.       ScaleWidth      =   2508
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   2532
  30.       Begin CheckBox Check1 
  31.          Caption         =   "Box #4"
  32.          Height          =   372
  33.          Index           =   4
  34.          Left            =   120
  35.          TabIndex        =   4
  36.          Top             =   1200
  37.          Width           =   1572
  38.       End
  39.       Begin CheckBox Check1 
  40.          Caption         =   "Box #3"
  41.          Height          =   372
  42.          Index           =   3
  43.          Left            =   120
  44.          TabIndex        =   3
  45.          Top             =   840
  46.          Width           =   1572
  47.       End
  48.       Begin CheckBox Check1 
  49.          Caption         =   "Box #2"
  50.          Height          =   372
  51.          Index           =   2
  52.          Left            =   120
  53.          TabIndex        =   2
  54.          Top             =   480
  55.          Width           =   1572
  56.       End
  57.       Begin CheckBox Check1 
  58.          Caption         =   "Box #1"
  59.          Height          =   372
  60.          Index           =   1
  61.          Left            =   120
  62.          TabIndex        =   1
  63.          Top             =   120
  64.          Width           =   1572
  65.       End
  66.    End
  67.    Begin Label Label2 
  68.       Caption         =   "Label2"
  69.       Height          =   372
  70.       Left            =   120
  71.       TabIndex        =   6
  72.       Top             =   2520
  73.       Width           =   2532
  74.    End
  75.    Begin Label Label1 
  76.       Caption         =   "Label1"
  77.       ForeColor       =   &H00000080&
  78.       Height          =   372
  79.       Left            =   120
  80.       TabIndex        =   5
  81.       Top             =   2040
  82.       Width           =   2532
  83.    End
  84. Option Explicit
  85. Sub Check1_Click (Index As Integer)
  86.  Select Case Check1(Index).Value
  87.   Case 0
  88.    'If un-checked, use Member #1
  89.    txlib1.MemberNumber = 1
  90.   Case Else
  91.    'If checked, use Member #2
  92.    txlib1.MemberNumber = 2
  93.  End Select
  94.  'Index equals ParagraphNumber
  95.  txlib1.ParagraphNumber = Index
  96.  'Set label2
  97.  label2.Caption = txlib1.Text
  98. End Sub
  99. Sub Form_Load ()
  100.  'Open our library
  101.  txlib1.LibraryName = "tutor2.tlb"
  102.  'Point to the caption for label1
  103.  txlib1.MemberNumber = 3
  104.  'Set the caption for label1
  105.  label1.Caption = txlib1.Text
  106.  label2.Caption = ""
  107. End Sub
  108.